home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYfontview < prev    next >
Text File  |  1996-12-13  |  1KB  |  71 lines
  1. /*
  2.  
  3. $VER: EASYfontview 1.0 (05.09.95) by David De Groot
  4.  
  5. This script works with 'nicefont' in your c: dir
  6.  
  7.  
  8. */
  9.  
  10.  
  11.  
  12.  
  13. NL = '0a'x
  14.  
  15. bool = exists('libs:rexxreqtools.library')
  16.  if bool = 0 then say "You need RexxReqTools.library"
  17. else call addlib('rexxreqtools.library',0,-30)
  18.  
  19. ncheck = exists('c:nicefont')
  20. if ncheck = 0
  21.     then do
  22.      call rtezrequest("NICEFONT is not in C:.",, 
  23.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  24.     exit 
  25.   end
  26. else 
  27.  
  28. call rtezrequest("Do you want me to do a Fixfonts" nl "while we're at it?",,
  29.                  "That's good!|Skip fixfonts",,
  30.                  "David says:", 'rtez_defaultresponse = 0 rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  31.  
  32. if rtresult == 0
  33.  then signal start
  34.   else do
  35.  
  36.    fix = exists('sys:system/fixfonts') 
  37.  
  38.    if fix = 0
  39.     then 
  40.      call rtezrequest("Fixfonts is not in sys:system/fixfonts.",, 
  41.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  42.      
  43.    else do 
  44.   address command 'fixfonts'
  45.  end
  46. end
  47.  
  48. start:
  49.  
  50. font = rtfontrequest("Pick a font to view",,)
  51. if rtresult == 0 
  52.  then do
  53.   call rtezrequest("You canceled." nl "See you next time!",,
  54.                    "Yep",,'rtez_flags=ezreqf_centertext')
  55.     end
  56.    else do
  57.   address command
  58.  'nicefont '|| font ||' '
  59.  
  60.  signal start
  61. end
  62.  
  63.  
  64. /*  Futureplans: SPARKLE! ;-) */
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.